www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminchannel\D_admin_ffff.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <!--#include file=D_inc_lanmu_type.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE4 { color: #FFFFFF; font-weight: bold; } --> </style> <% if find_dataw("qitashezhi123","0",10)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if use_http_url=0 use_http_post=0 function find_pty(t) find_pty="" for iiitti=1 to xpx_length execute("assii=xpx_aim"&cstr(cint(iiitti))) if trim(assii)<>"" then if trim(split(assii,",")(0))=trim(t) then find_pty=trim(split(assii,",")(1)) exit function end if end if next end function biao="[ND_channel]" sys_content_type=trim(request("sys_content_type")) dim ppath set rs112=server.CreateObject("adodb.recordset") rs112.open "select * from ND_templates_folder_reg where is_default_template=true",conn,1,1 if rs112.eof then %> <script language=javascript> alert("请先在 模板管理里 选择默认模版,再添加频道"); //AJAXfade(1,'l_list') </script> <center> <br /><br /><br /> 请先在 模板管理里 选择默认模版</center> <% AJAXcloseLoader() %> <% response.end else ppath="templates/"&rs112("templates_folder_path_name")&"/" scrt_ff="../../"&ppath&iscrtfile use_http_url=0 use_http_post=0 set fileaw=new Cls_FSO set filebw=new DosAsp if fileaw.ReportFileStatus(server.mappath(scrt_ff))=-1 then '模板目录下不存在"&iscrtfile&"安装脚本文件 sconts=loadfile("../../inc/"&w_web_config_template) call SaveXMLDocument_newindex(scrt_ff,sconts) scrt_ff="../../"&ppath&w_files_config sconts=loadfile("../../inc/"&w_files_config_template) call SaveXMLDocument(scrt_ff,sconts) else '模板目录下存在"&iscrtfile&"安装脚本文件 xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config") scrt_fff="../../"&ppath&xm_d_c if fileaw.ReportFileStatus(server.mappath(scrt_fff))=-1 then scrt_ff="../../"&ppath&xm_d_c sconts=loadfile("../../inc/"&w_files_config_template) call SaveXMLDocument(scrt_ff,sconts) end if end if ppath="templates/"&rs112("templates_folder_path_name")&"/" scrt_ff="../../"&ppath&iscrtfile xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config") scrt_ff="../../"&ppath&xm_d_c set aasc=ReadXMLDocument_nodes(scrt_ff,"files/file_reg") end if %> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td height="21" colspan="5" align="center" class="adminth"><span class="STYLE4">新建自定义频道文件类型</span></td> </tr> <tr bgcolor="#EDF8FE"> <td width="47%"> <form action="D_admin_ffff.asp?do=2" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#EDF8FE"> <td width="46%" align="right">自定义频道文件类型_说明:</td> <td width="54%" height="20" align="left"><input type="text" value="" size="20" name="as1"></td> </tr> <tr bgcolor="#EDF8FE"> <td width="46%" align="right">内部链接文件: </td> <td width="54%" height="20" align="left"><input type="text" value="" size="20" name="as2"></td> </tr> <tr bgcolor="#EDF8FE"> <td width="54%" height="0" align="left" colspan="2"><input type="hidden" value="1.htm" name="as3"></td> </tr> <tr bgcolor="#EDF8FE"> <td width="46%" align="right">文件类型引用标签:</td> <td width="54%" height="20" align="left"> <% rndokd=0 do while rndokd=0 Randomize '初始化随机数生成器。 rnddd = cstr((clng(Rnd(255)*8888+8)))&cstr((clng(Rnd(255)*8888+28)))&cstr((clng(Rnd(255)*8888+8))) rndokd=1 for iiittff=1 to xpx_length execute("assii=xpx_aim"&cstr(cint(iiittff))) if trim(assii)<>"" then if trim(cstr(split(assii,",")(0)))=rnddd then rndokd=0 exit for end if end if next loop %> <input type="text" value="$page$<%=rnddd%>$" size="20" name="as4h" disabled="disabled"> <input type="hidden" value="<%=rnddd%>" size="20" name="as4"> </td> </tr> <tr bgcolor="#EDF8FE"> <td colspan="2" align="center"><input type="submit" value="新 建"></td> </tr> </table> </form> </td> <td width="53%" align="center"> <form action="D_admin_ffff.asp?do=3" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#EDF8FE"> <td width="46%" align="right">频道文件类型(系统已有):</td> <td width="54%" height="20" align="left"> <select size="1" name="as1"> <option value="no">请选择频道文件类型</option> <% for iiittf=1 to xpx_length execute("assii=xpx_aim"&cstr(cint(iiittf))) if trim(assii)<>"" then cc_vv_a=trim(split(assii,",")(0)) cc_vv_b=trim(split(assii,",")(1)) %> <option value="<%=cc_vv_a%>"><%=cc_vv_b%></option> <% end if next %> </select> </td> </tr> <tr bgcolor="#EDF8FE"> <td width="46%" align="right">内部链接文件: </td> <td width="54%" height="20" align="left"><input type="text" value="" size="20" name="as2" /></td> </tr> <tr bgcolor="#EDF8FE"> <td width="54%" height="0" align="left" colspan="2"><input type="hidden" value="1.htm" name="as3" /></td> </tr> <tr bgcolor="#EDF8FE"> <td colspan="2" align="center"><input name="submit" type="submit" value="新 建" /></td> </tr> </table> </form> </td> </tr> </table> <br /> <form action="D_admin_ffff.asp?do=1" method="post"> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="36%" align="center" class="adminth"><span class="STYLE4">模板或标签代码引用此文件名用的标签</span></td> <td width="22%" align="center" class="adminth"><span class="STYLE4">频道文件类型</span></td> <td width="39%" height="27" align="center" class="adminth"><span class="STYLE4">对应的内部链接文件(勿必以nd_开头)</span></td> <td width="3%" height="27" align="center" class="adminth"> </td> </tr> <input type="hidden" value="<%=aasc.length%>" size="35" name="lenh"> <% for aiaa=0 to aasc.length-1 aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text)) bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text)) ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text)) ddssdd=trim(rep_xml_br(aasc(aiaa).selectSingleNode("is_custom").text)) eessee=trim(rep_xml_br(aasc(aiaa).selectSingleNode("custom_page_rem").text)) if cstr(ddssdd)="1" then sdsdfds=eessee else if find_pty(aassaa)="" then sdsdfds=aassaa else sdsdfds=find_pty(aassaa) end if end if %> <tr bgcolor="#EDF8FE"> <td width="36%" align="center">$page$<%=aassaa%>$</td> <td width="22%" align="center"><%=sdsdfds%></td> <% if instr(1,bbssbb,"出错了!,请",1)<>0 then bbssbb="" end if %> <td width="39%" height="27" align="center"> <input type="hidden" value="<%=aassaa%>" size="35" name="a<%=aiaa%>"> <input type="text" value="<%=bbssbb%>" size="28" name="b<%=aiaa%>"> </td> <td width="3%" height="27" align="center"> <input type="hidden" value="<%=ccsscc%>" size="28" name="c<%=aiaa%>"> </td> </tr> <% next %> <tr bgcolor="#EDF8FE"> <td colspan="4" align="center"> <input type="submit" value="提交" /> </td> </tr> </table> </form> </div> <% Set oXMLDomg = Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion) Public Function ReadXMLDocumentgg(strXMLFile,strNode) If strNode = "" Or strNode = "0" Then ReadXMLDocumentgg = oXMLDomg.xml Else ReadXMLDocumentgg = trim(rep_xml_br(oXMLDomg.documentElement.selectSingleNode(strNode).text)) End If End Function Public Function ReadXMLDocumentxgg(strXMLFile,strNode) If strNode = "" Or strNode = "0" Then ReadXMLDocumentxgg = oXMLDomg.xml Else set ReadXMLDocumentxgg = oXMLDomg.documentElement.selectSingleNode(strNode) End If End Function Public Function ReadXMLDocument_nodesgg(strXMLFile,strNode) If strNode = "" Or strNode = "0" Then ReadXMLDocument_nodesgg = oXMLDomg.xml Else set ReadXMLDocument_nodesgg = oXMLDomg.documentElement.selectNodes(strNode) End If End Function Public Function SaveXMLDocumentgg(ByVal strXMLFilei,ByVal strXMLDom) SaveXMLDocumentgg = False strXMLFilek = Server.MapPath(strXMLFilei) oXMLDomg.save strXMLFilek SaveXMLDocumentgg = True If Err.Number <> 0 Then Err.Clear SaveXMLDocumentgg = False End If End Function function set_value(a,b,c) scrt_ff="../../"&ppath&iscrtfile strXMLFile = Server.MapPath(scrt_ff) oXMLDomg.Load(strXMLFile) xm_d_c=ReadXMLDocumentgg(scrt_ff,"all_web_file_name_and_type_config") scrt_ff="../../"&ppath&xm_d_c strXMLFile = Server.MapPath(scrt_ff) oXMLDomg.Load(strXMLFile) set aasc=ReadXMLDocument_nodesgg(scrt_ff,"files/file_reg") hdddddda=0 for aiaa=0 to aasc.length-1 aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text)) bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text)) ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text)) if aassaa=trim(a) then aasc(aiaa).selectSingleNode("filename").text=b aasc(aiaa).selectSingleNode("to_html_filename").text=c hdddddda=1 end if next if hdddddda=0 then 'set xm_d_aaa=ReadXMLDocumentxgg(scrt_ff,"files") 'set ppssss=xm_d_aaa.appendChild(oXMLDomg.createElement("file_reg")) 'ppssss.appendChild(oXMLDomg.createElement("filetype")) 'ppssss.appendChild(oXMLDomg.createElement("filename")) 'ppssss.appendChild(oXMLDomg.createElement("to_html_filename")) end if call SaveXMLDocumentgg(scrt_ff,sconts) end function if request("do")="1" then okkkka=1 for iowe=0 to cint(request("lenh"))-1 if left(lcase(trim(request("b"&cstr(iowe)))),3)<>"nd_" and 1=2 then okkkka=0 %> <script language=javascript> alert("为了方便系统区别频道内部链接文件和一般的文件,频道内部链接文件的文件名必须以nd_开头,系统发现你在某个输入框里输入了非nd_开头的文件名"); history.go(-1); </script> <% exit for end if if trim(request("b"&cstr(iowe)))="" then bbbbbst="出错了!,请在主系统里的菜单与频道管理里配置各频道内部链接文件" else bbbbbst=trim(request("b"&cstr(iowe))) end if call set_value(request("a"&cstr(iowe)),bbbbbst,request("c"&cstr(iowe))) next call all_update_qiantai_web_filenames_config_xml() %> <script language=javascript> <%if okkkka=1 then%> alert("修改成功!"); <%end if%> self.location="D_admin_ffff.asp"; </script> <% end if if request("do")="2" then errpp=0 if trim(request("as1"))="" then errpp=1 %> <script language=javascript> alert("请填写 自定义频道文件类型_说明!"); history.go(-1); </script> <% end if if trim(request("as2"))="" then errpp=1 %> <script language=javascript> alert("请填写 内部链接文件!"); history.go(-1); </script> <% end if if left(lcase(trim(request("as2"))),3)<>"nd_" then errpp=1 %> <script language=javascript> alert("为了方便系统区别频道内部链接文件和一般的文件,频道内部链接文件的文件名必须以nd_开头"); history.go(-1); </script> <% end if if trim(request("as3"))="" then errpp=1 %> <script language=javascript> alert("请填写 生成htm时用的htm文件名!"); history.go(-1); </script> <% end if if errpp=0 then scrt_ff="../../"&ppath&iscrtfile strXMLFile = Server.MapPath(scrt_ff) oXMLDomg.Load(strXMLFile) xm_d_c=ReadXMLDocumentgg(scrt_ff,"all_web_file_name_and_type_config") scrt_ff="../../"&ppath&xm_d_c strXMLFile = Server.MapPath(scrt_ff) oXMLDomg.Load(strXMLFile) set xm_d_aaa=ReadXMLDocumentxgg(scrt_ff,"files") set ppssss=xm_d_aaa.appendChild(oXMLDomg.createElement("file_reg")) set ppssss2=ppssss.appendChild(oXMLDomg.createElement("filetype")) ppssss2.text=trim(request("as4")) set ppssss3=ppssss.appendChild(oXMLDomg.createElement("filename")) ppssss3.text=trim(request("as2")) set ppssss4=ppssss.appendChild(oXMLDomg.createElement("to_html_filename")) ppssss4.text=trim(request("as3")) set ppssss5=ppssss.appendChild(oXMLDomg.createElement("custom_page_rem")) ppssss5.text=trim(request("as1")) set ppssss6=ppssss.appendChild(oXMLDomg.createElement("is_custom")) ppssss6.text="1" call SaveXMLDocumentgg(scrt_ff,sconts) call all_update_qiantai_web_filenames_config_xml() %> <script language=javascript> alert("添加成功!"); self.location="D_admin_ffff.asp"; </script> <% end if end if if request("do")="3" then errpp=0 if trim(request("as1"))="no" then errpp=1 %> <script language=javascript> alert("请选择 频道文件类型!"); history.go(-1); </script> <% end if if trim(request("as2"))="" then errpp=1 %> <script language=javascript> alert("请填写 内部链接文件!"); history.go(-1); </script> <% end if if left(lcase(trim(request("as2"))),3)<>"nd_" then errpp=1 %> <script language=javascript> alert("为了方便系统区别频道内部链接文件和一般的文件,频道内部链接文件的文件名必须以nd_开头"); history.go(-1); </script> <% end if if trim(request("as3"))="" then errpp=1 %> <script language=javascript> alert("请填写 生成htm时用的htm文件名!"); history.go(-1); </script> <% end if scrt_ff="../../"&ppath&iscrtfile strXMLFile = Server.MapPath(scrt_ff) oXMLDomg.Load(strXMLFile) xm_d_c=ReadXMLDocumentgg(scrt_ff,"all_web_file_name_and_type_config") scrt_ffaa="../../"&ppath&xm_d_c set aasc=ReadXMLDocument_nodes(scrt_ffaa,"files/file_reg") for aiaa=0 to aasc.length-1 aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text)) if aassaa=trim(request("as1")) then %> <script language=javascript> alert("该 频道文件类型 的设置 在当前模板中已存在,请直接在下面修改,不用再添加!"); self.location="D_admin_ffff.asp"; </script> <% errpp=1 end if next if errpp=0 then scrt_ffaa="../../"&ppath&xm_d_c strXMLFile = Server.MapPath(scrt_ffaa) oXMLDomg.Load(strXMLFile) set xm_d_aaa=ReadXMLDocumentxgg(scrt_ff,"files") set ppssss=xm_d_aaa.appendChild(oXMLDomg.createElement("file_reg")) set ppssss2=ppssss.appendChild(oXMLDomg.createElement("filetype")) ppssss2.text=trim(request("as1")) set ppssss3=ppssss.appendChild(oXMLDomg.createElement("filename")) ppssss3.text=trim(request("as2")) set ppssss4=ppssss.appendChild(oXMLDomg.createElement("to_html_filename")) ppssss4.text=trim(request("as3")) set ppssss5=ppssss.appendChild(oXMLDomg.createElement("custom_page_rem")) ppssss5.text="" set ppssss6=ppssss.appendChild(oXMLDomg.createElement("is_custom")) ppssss6.text="0" call SaveXMLDocumentgg(scrt_ffaa,sconts) call all_update_qiantai_web_filenames_config_xml() %> <script language=javascript> alert("添加成功!"); self.location="D_admin_ffff.asp"; </script> <% end if end if %> <script language=javascript> AJAXfade(1,'l_list') </script> <% AJAXcloseLoader() %>